home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
bigcopy datas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
65 lines
5 REM -----BLOCK 1-----(7213)
10 DATA120,165,1,41,0,133,1,169,32,133,6,169,224,133,4,169,0,133,5,133,3
20 DATA162,32,160,0,177,3,133,9,177,5,145,3,165,9,145,5,200,208,241,230
30 DATA4,230,6,202,208,234,165,1,9,55,133,1,88,96,169,1,141,11,17,169,63
40 DATA141,10,17,169,0,141,12,17,174,12,17,32,59,14,173,16,17,157,32,17
45 REM -----BLOCK 2-----(8794)
50 DATA173,17,17,157,32,19,232,173,16,17,157,32,17,173,17,17,157,32,19,238
60 DATA12,17,232,173,12,17,201,100,208,217,162,0,32,59,14,173,16,17,157
70 DATA32,18,173,17,17,157,32,20,232,173,16,17,157,32,18,173,17,17,157,32
80 DATA20,238,12,17,232,173,12,17,201,200,208,217,32,46,16,32,96,16,169
90 DATA0,141,18,17,174,18,17,189,32,17,32,210,255,238,18,17,173,18,17,201
95 REM -----BLOCK 3-----(10886)
100 DATA200,208,237,169,0,141,18,17,174,18,17,189,32,18,32,210,255,238,18
110 DATA17,173,18,17,201,200,208,237,169,13,32,210,255,169,9,32,210,255,32
120 DATA96,16,169,0,141,18,17,174,18,17,189,32,19,32,210,255,238,18,17,173
130 DATA18,17,201,200,208,237,169,0,141,18,17,174,18,17,189,32,20,32,210
140 DATA255,238,18,17,173,18,17,201,200,208,237,169,13,32,210,255,169,9,32
145 REM -----BLOCK 4-----(8796)
150 DATA210,255,173,10,17,56,233,7,141,10,17,201,249,240,7,201,253,240,11
160 DATA76,65,13,169,0,141,11,17,76,65,13,32,204,255,169,4,32,195,255,96
170 DATA169,128,141,16,17,141,17,17,173,11,17,141,14,17,141,2,17,173,10,17
180 DATA141,13,17,141,1,17,173,12,17,141,3,17,32,110,15,173,9,17,240,9,24
190 DATA173,16,17,105,3,141,16,17,173,13,17,208,12,169,0,141,14,17,169,255
195 REM -----BLOCK 5-----(6787)
200 DATA141,13,17,208,3,206,13,17,173,13,17,141,1,17,173,14,17,141,2,17,173
210 DATA12,17,141,3,17,32,110,15,173,9,17,240,9,24,173,16,17,105,12,141,16
220 DATA17,206,13,17,173,13,17,141,1,17,173,14,17,141,2,17,173,12,17,141
230 DATA3,17,32,110,15,173,9,17,240,9,24,173,16,17,105,48,141,16,17,206,13
240 DATA17,173,13,17,141,1,17,173,14,17,141,2,17,173,12,17,141,3,17,32,110
245 REM -----BLOCK 6-----(7229)
250 DATA15,173,9,17,240,12,24,173,16,17,105,64,141,16,17,238,17,17,206,13
260 DATA17,208,7,169,128,141,17,17,208,111,173,13,17,141,1,17,173,14,17,141
270 DATA2,17,173,12,17,141,3,17,32,110,15,173,9,17,240,9,24,173,17,17,105
280 DATA6,141,17,17,206,13,17,173,13,17,141,1,17,173,14,17,141,2,17,173,12
290 DATA17,141,3,17,32,110,15,173,9,17,240,9,24,173,17,17,105,24,141,17,17
295 REM -----BLOCK 7-----(7422)
300 DATA206,13,17,173,13,17,141,1,17,173,14,17,141,2,17,173,12,17,141,3,17
310 DATA32,110,15,173,9,17,240,9,24,173,17,17,105,96,141,17,17,96,173,1,17
320 DATA141,0,17,173,3,17,141,4,17,173,1,17,41,248,141,1,17,173,2,17,41,1
330 DATA141,2,17,173,4,17,41,248,141,4,17,173,3,17,41,7,141,3,17,169,0,141
340 DATA5,17,173,4,17,141,6,17,160,4,24,109,6,17,144,3,238,5,17,136,208,244
345 REM -----BLOCK 8-----(7523)
350 DATA141,4,17,160,3,24,46,4,17,46,5,17,136,208,246,173,3,17,24,109,4,17
360 DATA144,3,238,5,17,24,109,1,17,144,3,238,5,17,24,133,2,173,5,17,109,2
370 DATA17,105,32,133,3,173,0,17,41,7,141,0,17,169,7,56,237,0,17,141,0,17
380 DATA208,10,169,1,141,7,17,173,0,17,240,14,169,1,141,7,17,24,14,7,17,206
390 DATA0,17,208,248,24,160,0,177,2,141,8,17,13,7,17,56,237,8,17,208,8,169
395 REM -----BLOCK 9-----(10566)
400 DATA1,141,9,17,76,45,16,169,0,141,9,17,96,169,4,162,4,160,0,32,186,255
410 DATA169,0,32,189,255,32,192,255,169,6,162,4,160,6,32,186,255,162,6,32
420 DATA201,255,169,16,32,210,255,32,204,255,169,6,32,195,255,162,4,32,201
430 DATA255,96,169,8,32,210,255,169,27,32,210,255,169,16,32,210,255,169,0
440 DATA32,210,255,169,40,32,210,255,96
450 S=0:FORT=1TO82:READA:S=S+A:POKE49152+T,A:NEXT:IF S<>7213THEN F=1:GOTO1000
460 S=0:FORT=83TO180:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>8794THEN F=2:GOTO1000
470 S=0:FORT=181TO276:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>10886THENF=3:GOTO1000
480 S=0:FORT=277TO376:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>8796THENF=4:GOTO1000
490 S=0:FORT=377TO480:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>6787THENF=5:GOTO1000
500 S=0:FORT=481TO583:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>7229THENF=6:GOTO1000
510 S=0:FORT=584TO691:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>7422THENF=7:GOTO1000
520 S=0:FORT=692TO801:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>7523THENF=8:GOTO1000
530 S=0:FORT=802TO890:READA:S=S+A:POKE49152+T,A:NEXT:IFS<>10566THENF=9:GOTO1000
540 PRINT"ALLES OKAY !!!":END
1000 PRINT"FEHLER IM BLOCK";F